home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 095 / rfix0326.arc / CNFG0326.MRG < prev    next >
Encoding:
Text File  |  1987-03-24  |  7.4 KB  |  174 lines
  1. * Merge this against config.bas  Date 3-15-1987  Size 182016 bytes
  2. * ------------[ Created 03-23-1987 18:16:56 ]------------
  3. * REPLACING old line(s) by new
  4. 15710 CLS
  5.       GOSUB 15780
  6.       A$ = "RBBS-PC to use modem commands you specified as follows:"
  7.       IF M14$ = "YES" THEN _
  8.      A$ ="RBBS-PC to use standard modem commands as follows:"
  9.       PRINT A$
  10.       PRINT ""
  11.       PRINT "1. Reset the modem                : " + USER.RESET.COMMAND$
  12.       PRINT ""
  13.       PRINT "2. Initialize the modem           : " + USER.INIT.COMMAND$
  14.       PRINT "   Note: End item 2 with:"
  15. * ------[ first line different ]------
  16.       PRINT "     S0=1Q0X1 if answer on 0 rings"                     ' TF032101
  17.       PRINT "     S0=254 if answer on >0 rings (no ring-back)"
  18.       PRINT "     S0=255 if answer on >0 rings (with ring-back)"
  19.       PRINT ""
  20.       PRINT "3. Count the number of rings      : " + USER.COUNT.RINGS.COMMAND$
  21.       PRINT ""
  22.       PRINT "4. Answer the phone               : " + USER.ANSWER.COMMAND$
  23.       PRINT ""
  24.       PRINT "5. Take the phone off the hook    : " + USER.GO.OFFHOOK.COMMAND$
  25.       PRINT ""
  26.       PRINT "6. Clear the modem's firmware     : " + USER.FIRMWARE.CLEAR.CMND$
  27.       PRINT ""
  28.       PRINT "7. Initialize modem's firmware    : " + USER.INITIALIZE.COMMAND$
  29.       PRINT "   Note: End item 7 with:"
  30.       PRINT "     Q1 if item 2 ends with S0=255"
  31.       PRINT ""
  32.       PRINT "8. Write to modem's firmware      : " + USER.FIRMWARE.WRITE.CMND$
  33.       XX$ = "Select command string to change (1 to 8, CR to end)"
  34.       GOSUB 50345
  35.       LINE INPUT;HJ$
  36.       IF HJ$ = "" THEN _
  37.          RETURN
  38.       IF VAL(HJ$) <1 OR VAL(HJ$) > 8 THEN _
  39.          GOTO 15710
  40.       I = VAL(HJ$)
  41.       XX$ = "Enter modem command for item" + STR$(I) + " :"
  42.       GOSUB 50345
  43.       LINE INPUT;HJ$
  44.       GOSUB 50654
  45.       ON I GOTO 15712,15714,15716,15718,15720,15722,15724,15726
  46. * REPLACING old line(s) by new
  47. 15790 FIRMWARE.INITIALIZE.COMMAND$= "AT&C1&D3B1E0V1M0S0=0&T5"
  48.       FIRMWARE.CLEAR.COMMAND$    = "AT&F"
  49.       FIRMWARE.WRITE.COMMAND$    = "&W"
  50.       USER.ANSWER.COMMAND$ = MODEM.ANSWER.COMMAND$
  51.       USER.COUNT.RINGS.COMMAND$ = MODEM.COUNT.RINGS.COMMAND$
  52.       USER.GO.OFFHOOK.COMMAND$ = MODEM.GO.OFFHOOK.COMMAND$
  53. * ------[ first line different ]------
  54.       USER.INIT.COMMAND$ = MODEM.INIT.COMMAND$                       ' TF031601
  55.       USER.RESET.COMMAND$ = MODEM.RESET.COMMAND$
  56.       USER.INITIALIZE.COMMAND$ = FIRMWARE.INITIALIZE.COMMAND$
  57.       USER.FIRMWARE.CLEAR.CMND$ = FIRMWARE.CLEAR.COMMAND$
  58.       USER.FIRMWARE.WRITE.CMND$ = FIRMWARE.WRITE.COMMAND$
  59.       RETURN
  60. '
  61. ' *****************************************************************************
  62. ' * SHOULD USERS BE REMINDED OF THE MESSAGES THAT THEY LEFT?                  *
  63. ' *****************************************************************************
  64. '
  65. * REPLACING old line(s) by new
  66. 16180 CALL GETYESNO ("Use the SHELL command to invoke protocol drivers?",GO.TO.SHELL$)
  67.       IF GO.TO.SHELL$ = "YES" THEN _
  68.          GO.TO.SHELL$ = "SHELL" : _
  69.          RETURN
  70.       IF GO.TO.SHELL$ = "NO" THEN _
  71. * ------[ first line different ]------
  72.          GO.TO.SHELL$ = "EXIT RBBS-PC"                               ' TF032301
  73.       RETURN
  74. '
  75. ' *****************************************************************************
  76. ' * SHOULD "DOORS" BE AVAILABLE?                                              *
  77. ' *****************************************************************************
  78. '
  79. * REPLACING old line(s) by new
  80. 59020 OPEN "O",#1,CONFIG.FILENAME$
  81.       IF INSTR(MO$,":") < 1 THEN _
  82.          MO$ = MO$ + ":
  83.       IF INSTR(SJ$,":") < 1 THEN _
  84.          SJ$ = SJ$ + ":
  85.       IF INSTR(DRIVE.FOR.BULLETINS$,":") < 1 THEN _
  86.          DRIVE.FOR.BULLETINS$ = DRIVE.FOR.BULLETINS$ + ":
  87.       T$ = DIRECTORY.EXTENTION$
  88.       IF INSTR(DIRECTORY.EXTENTION$,".") THEN _
  89.          T$ = MID$(DIRECTORY.EXTENTION$,INSTR(DIRECTORY.EXTENTION$,".") + 1,LEN(DIRECTORY.EXTENTION$))
  90.       S$ = UPLOAD.DIRECTORY$
  91.       IF INSTR(UPLOAD.DIRECTORY$,".") THEN _
  92.          S$ = MID$(UPLOAD.DIRECTORY$,1,INSTR(UPLOAD.DIRECTORY$,".")-1)
  93.       DIRECTORY.EXTENTION$ = T$
  94.       UPLOAD.DIRECTORY$ = S$
  95.       IF DOWNLOAD.TO.SUBDIR$ = "NO" THEN _
  96.          DNLD.SUB = 0 : _
  97.          FOR I = 1 TO 99 : _
  98.             DNLD$(I) = "" : _
  99.          NEXT
  100.       IF UPLOAD.TO.SUBDIR$   = "NO" THEN _
  101.          UPLOAD.SUBDIR$ = DRIVE.FOR.UPLOADS$ + ":"
  102.       IF UPLOAD.TO.SUBDIR$   = "YES" AND UPLOAD.SUBDIR$<>"" THEN _
  103.          DRIVE.FOR.UPLOADS$ = UPLOAD.SUBDIR$
  104.       IF REQUIRED.RINGS = 0 AND _
  105. * ------[ first line different ]------
  106.          MID$(USER.INIT.COMMAND$,INSTR(USER.INIT.COMMAND$,"S0")+3,3)<>"1Q0X1" THEN _ ' TF032101
  107.          MID$(USER.INIT.COMMAND$,INSTR(USER.INIT.COMMAND$,"S0")+3,3)="1Q0X1" ' TF032101
  108.       IF REQUIRED.RINGS > 0 AND _
  109.          MID$(USER.INIT.COMMAND$,INSTR(USER.INIT.COMMAND$,"S0")+3,3)="0  " THEN _
  110.          MID$(USER.INIT.COMMAND$,INSTR(USER.INIT.COMMAND$,"S0")+3,3)="254"
  111. '
  112. ' *****************************************************************************
  113. ' * WRITE OUT THE "RBBS-PC.DEF" FILE WITH THE SYSOP'S SPECIFIED CONFIGURATION *
  114. ' *****************************************************************************
  115. '
  116. * REPLACING old line(s) by new
  117. 60010 REM * HANDLE ERROR CONDITIONS *
  118.       ' PRINT ERR,ERL : STOP
  119.       IF ERR = 53 AND ERL = 30010 THEN _
  120.          RESUME 30030
  121.       IF ERR = 58 AND ERL = 30010 THEN _
  122.          RESUME 30020
  123.       IF ERR = 62 AND _
  124.         (ERL = 11600 OR _
  125.          ERL = 11620 OR _
  126.          ERL = 11640 OR _
  127.          ERL = 11660 OR _
  128.          ERL = 11680 OR _
  129.          ERL = 11700 OR _
  130.          ERL = 11705 OR _
  131.          ERL = 11706) THEN _
  132.          PRINT CONFIG.FILENAME$ + _
  133.                " from a version earlier than CPC15.1 on default drive." : _
  134.          PRINT "Please delete and rerun CONFIG." : _
  135.          RESUME 60340
  136. * ------[ first line different ]------
  137.       IF ERL = 15780 AND ERR = 5 AND _                               ' TF031601
  138.          INSTR(USER.INIT.COMMAND$,"S0=") = 0 THEN _                  ' TF031601
  139.          RESUME 16073                                                ' TF031601
  140.       IF ERL = 31000 AND ERR = 58 THEN _
  141.          KILL A$ : _
  142.          RESUME 31000
  143.       IF ERL = 31030 AND ERR = 58 THEN _
  144.          KILL A$ : _
  145.          RESUME 31030
  146.       IF ERL = 22120 AND ERR = 6 THEN _
  147.          RESUME 22100
  148.       IF ERL = 24750 AND ERR = 58 THEN _
  149.          KILL A$ : _
  150.          RESUME 24750
  151.       IF ERL = 31020 THEN _
  152.          PRINT "Unable to kill ";MAIN.MESSAGE.FILE$;".  Error";STR$(ERR):_
  153.          RESUME 31035
  154.       IF (ERL = 50490 OR ERL = 50540) AND ERR = 58 THEN  _
  155.          RESUME 50500
  156.       IF ERL = 50490 OR ERL = 50540 THEN _
  157.          RESUME 15230
  158.       IF ERR = 61 THEN _
  159.          PRINT "ERROR - IBM DOS DISKETTE FULL " : _
  160.          RESUME 60340
  161.       IF ERR = 67 THEN _
  162.          PRINT "ERROR - IBM DOS DIRECTORY FULL" : _
  163.          RESUME 60340
  164.       IF ERR = 70 THEN _
  165.          PRINT "DISKETTE IN DRIVE IS WRITE PROTECTED" : _
  166.          RESUME 60340
  167.       IF ERR = 71 THEN _
  168.          PRINT "DRIVE DOOR OPEN OR MISSING DISKETTE"  : _
  169.          RESUME 60340
  170.       IF ERR = 72 THEN _
  171.          PRINT "ERROR - UNFORMATTED IBM DOS DISKETTE IN DRIVE" : _
  172.          RESUME 60340
  173.       PRINT "+++ Error";ERR;" in line ";ERL "occurred at " TIME$ " on " DATE$
  174.